﻿
#Const rss_2_0 = True
Imports System.IO

Public Class rsscontrol
#If rss_2_0 Then
    Inherits rsscontrol_2_0
#End If

    Public Sub New(ByRef buff As MemoryStream, ByRef tag As String)
        MyBase.New(buff, tag)
    End Sub

    Public Class attributesCollection
        Public Shared Function url(ByRef key As String) As Boolean
            Return strsame(key, "url", False)
        End Function

        Public Shared Function length(ByRef key As String) As Boolean
            Return strsame(key, "length", False)
        End Function

        Public Shared Function type(ByRef key As String) As Boolean
            Return strsame(key, "type", False)
        End Function

        Public Shared Function domain(ByRef key As String) As Boolean
            Return strsame(key, "domain", False)
        End Function

        Public Shared Function port(ByRef key As String) As Boolean
            Return strsame(key, "port", False)
        End Function

        Public Shared Function path(ByRef key As String) As Boolean
            Return strsame(key, "path", False)
        End Function

        Public Shared Function registerProcedure(ByRef key As String) As Boolean
            Return strsame(key, "registerProcedure", False)
        End Function

        Public Shared Function protocol(ByRef key As String) As Boolean
            Return strsame(key, "protocol", False)
        End Function

        Public Shared Function isPermaLink(ByRef key As String) As Boolean
            Return strsame(key, "isPermaLink", False)
        End Function
    End Class

End Class
